home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / m / multi_media_demo_maker / multimediademomakerv1.0.dms / multimediademomakerv1.0.adf / sources / juggler.S < prev    next >
Text File  |  1990-11-13  |  5KB  |  198 lines
  1. ;-----------------------------------------------------------------------
  2. ; Beispiel eines Vektorballobjekt-Sourcecodes
  3. ;-----------------------------------------------------------------------
  4. ; animiertes Vektorballsobjekt (Juggler)
  5. ;-----------------------------------------------------------------------
  6. ;(Seka-format)
  7. ;Benutzung:
  8. ;a (return)
  9. ;wi (return)
  10. ;name (return)
  11. ;start (return)
  12. ;end (return)
  13. ;Danach kann das Objekt vom Demomaker aus unter "name" eingeladen werden.
  14. ;------------------------------------------------------------------------
  15. start:
  16. dc.l    "BALL"    ;Kennung fuer Ballsobjekt
  17.  
  18. ballsob1:
  19. dc.l ballpoints-ballsob1,ballart-ballsob1    ;offsets
  20. dc.w 500;zoom
  21. dc.w 0,$500,$710,$930,$a50,$d90,$fd0,$000,$5,$6,$118,$33a,$55b,$88c,$ccd
  22. dc.w $fff    ;farben
  23. dc.l juggleinit-ballsob1    ;init des Animation
  24. dc.l juggle-ballsob1        ;Animationsroutine
  25.  
  26. jpointers:dc.l 0,0,0,0    ;pointer
  27.  
  28. ;Init...
  29.  
  30. juggleinit:
  31.     lea jpointers(pc),a0
  32.     lea jongx(pc),a1
  33.     lea jongy(pc),a2
  34.     lea armjong(pc),a3
  35.     lea jongxend(pc),a4
  36.     move.l a1,(a0)
  37.     move.l a2,4(a0)
  38.     move.l a3,8(a0)
  39.     move.l a4,12(a0)
  40.     rts
  41.  
  42. ;Animation...
  43.  
  44. juggle:    lea jpointers(pc),a0
  45.     move.l (a0),a3
  46.     move.l 4(a0),a1
  47.     move.l 8(a0),a4
  48.     lea jon(pc),a2
  49.     lea jon2(pc),a5
  50.     lea jon3(pc),a6
  51. jongl:    move.w (a3),(a2)
  52.     move.w 32(a3),6(a2)
  53.     move.w 62(a3),12(a2)
  54.     move.w 94(a3),18(a2)
  55.     
  56.     move.w (a1),2(a2)
  57.     move.w 32(a1),6+2(a2)
  58.     move.w 62(a1),12+2(a2)
  59.     move.w 94(a1),18+2(a2)
  60.     add.w #10,2(A2)
  61.     add.w #10,6+2(a2)
  62.     add.w #10,12+2(a2)
  63.     add.w #10,18+2(A2)
  64.     neg 2(a2)
  65.     neg 6+2(a2)
  66.     neg 12+2(a2)
  67.     neg 18+2(a2)
  68.     move.w (a4),2(a5)
  69.     move.w (a4)+,2(a6)
  70.     move.w (a4),6+2(a5)
  71.     move.w (a4)+,6+2(a6)
  72.     addq.l #2,a3
  73.     addq.l #2,a1
  74.     move.l a3,(a0)
  75.     move.l a1,4(a0)
  76.     move.l a4,8(a0)
  77.     cmpi.l 12(a0),a3
  78.     beq juggleinit
  79.     rts
  80.  
  81. ;Sinustabellen fuer Jonglieren...
  82. jongx:
  83. dc.w 2 , 5 , 8 , 10 , 13 , 15 , 18 
  84. dc.w 20 , 21 , 23 , 24 , 26 , 26 , 27 , 27 
  85. dc.w 27 , 27 , 27 , 26 , 25 , 24 , 22 , 20 
  86. dc.w 18 , 16 , 14 , 11 , 9 , 6 , 3 , 1 
  87. dc.w-1 ,-4 ,-7 ,-9 ,-12 ,-14 ,-17 ,-19 
  88. dc.w-21 ,-22 ,-24 ,-25 ,-26 ,-27 ,-27 ,-27 
  89. dc.w-27 ,-27 ,-26 ,-25 ,-24 ,-23 ,-21 ,-19 
  90. dc.w-17 ,-15 ,-13 ,-10 ,-7 ,-5 ,-2 
  91. jongxend:
  92. dc.w 2 , 5 , 8 , 10 , 13 , 15 , 18 
  93. dc.w 20 , 21 , 23 , 24 , 26 , 26 , 27 , 27 
  94. dc.w 27 , 27 , 27 , 26 , 25 , 24 , 22 , 20 
  95. dc.w 18 , 16 , 14 , 11 , 9 , 6 , 3 , 1 
  96. dc.w-1 ,-4 ,-7 ,-9 ,-12 ,-14 ,-17 ,-19 
  97. dc.w-21 ,-22 ,-24 ,-25 ,-26 ,-27 ,-27 ,-27 
  98. dc.w-27 ,-27 ,-26 ,-25 ,-24 ,-23 ,-21 ,-19 
  99. dc.w-17 ,-15 ,-13 ,-10 ,-7 ,-5 ,-2 
  100. jongy:
  101. dc.w 59 
  102. dc.w 59 , 59 , 58 , 57 , 56 , 54 , 52 , 49 
  103. dc.w 47 , 43 , 40 , 37 , 33 , 29 , 25
  104. dc.w 32 , 40 , 48 , 56 , 63 , 70 , 76 
  105. dc.w 82 , 87 , 92 , 96 , 99 , 102 , 103 , 104 
  106. dc.w 104 , 104 , 102 , 100 , 97 , 94 , 89 , 84 
  107. dc.w 79 , 72 , 66 , 59 , 51 , 44 , 36 , 28 
  108. dc.w 20 , 23 , 27 , 31 , 35 , 39 , 42 , 45 
  109. dc.w 48 , 51 , 53 , 55 , 57 , 58 , 59
  110. jongyend:
  111. dc.w 59 
  112. dc.w 59 , 59 , 58 , 57 , 56 , 54 , 52 , 49 
  113. dc.w 47 , 43 , 40 , 37 , 33 , 29 , 25
  114. dc.w 32 , 40 , 48 , 56 , 63 , 70 , 76 
  115. dc.w 82 , 87 , 92 , 96 , 99 , 102 , 103 , 104 
  116. dc.w 104 , 104 , 102 , 100 , 97 , 94 , 89 , 84 
  117. dc.w 79 , 72 , 66 , 59 , 51 , 44 , 36 , 28 
  118. dc.w 20 , 23 , 27 , 31 , 35 , 39 , 42 , 45 
  119. dc.w 48 , 51 , 53 , 55 , 57 , 58 , 59
  120.  
  121. ;Armbewegung...
  122.  
  123. armjong:
  124. dc.w -20,-20,-22,-24,-24,-28,-28,-32,-24,-28,-22,-24
  125. dc.w -20,-20,-20,-20,-20,-20,-20,-20,-20,-20
  126.  
  127. dc.w -20,-20,-20,-20,-20,-20,-20,-20
  128. dc.w -20,-20,-22,-24,-24,-28,-28,-32,-24,-28,-22,-24
  129. dc.w -20,-20,-20,-20,-20,-20,-20,-20,-20,-20
  130.  
  131. dc.w -20,-20,-20,-20,-20,-20,-20,-20
  132. dc.w -20,-20,-22,-24,-24,-28,-28,-32,-24,-28,-22,-24
  133. dc.w -20,-20,-20,-20,-20,-20,-20,-20,-20,-20
  134.  
  135. dc.w -20,-20,-20,-20,-20,-20,-20,-20
  136. dc.w -20,-20,-22,-24,-24,-28,-28,-32,-24,-28,-22,-24
  137. dc.w -20,-20,-20,-20,-20,-20,-20,-20,-20,-20
  138.  
  139. dc.w -20,-20,-20,-20,-20,-20,-20,-20
  140. dc.w -20,-20,-22,-24,-24,-28,-28,-32,-24,-28,-22,-24
  141. dc.w -20,-20,-20,-20,-20,-20,-20,-20,-20,-20
  142.  
  143. dc.w -20,-20,-20,-20,-20,-20,-20,-20
  144. dc.w -20,-20,-22,-24,-24,-28,-28,-32,-24,-28,-22,-24
  145. dc.w -20,-20,-20,-20,-20,-20,-20,-20,-20,-20
  146.  
  147. ballpoints:    ;Punktstruktur...
  148. dc.w 36
  149. dc.w 0,-100,0
  150. dc.w -9,-103,17
  151. dc.w 5,-103,17
  152. dc.w 0,-80,0
  153. dc.w 0,-55,0
  154. dc.w 0,-20,0
  155.  
  156. dc.w 28,-60,0
  157. dc.w 28,-45,4
  158. dc.w 28,-30,8
  159. dc.w 28,-20,12
  160. jon2:
  161. dc.w 28,-20,22
  162. dc.w 28,-20,32
  163.  
  164. dc.w -28,-60,0
  165. dc.w -28,-45,4
  166. dc.w -28,-30,8
  167. dc.w -28,-20,12
  168. jon3:
  169. dc.w -28,-20,22
  170. dc.w -28,-20,32
  171.  
  172. dc.w 20,-10,0
  173. dc.w 21,5,4
  174. dc.w 22,20,8
  175. dc.w 23,35,10
  176. dc.w 24,48,8
  177. dc.w 25,60,6
  178. dc.w 26,74,4
  179.  
  180. dc.w -20,-10,0
  181. dc.w -21,5,4
  182. dc.w -22,20,8
  183. dc.w -23,35,10
  184. dc.w -24,48,8
  185. dc.w -25,60,6
  186. dc.w -26,74,4
  187.  
  188. jon:
  189. dc.w -28,-60,28
  190. dc.w -28,-50,28
  191. dc.w -28,-30,28
  192. dc.w -28,-20,28
  193. ballart:    ;Ballarten...
  194. dc.w 44,1,1,2,40,41,25,24,24,23,22,21,25,24,24,23,22,21
  195. dc.w 25,24,24,23,23,23,24,25,24,24,23,23,23,24
  196. dc.w 7,7,7,7
  197. end:
  198.